#!/usr/bin/perl



use Getopt::Long "GetOptions";

$ENV{"LC_ALL"} = "C";


use cohesion qw(%dbs %C);

&GetOptions(
	    's=s' => \$srcFile,
	    't=s' => \$tgtFile,
	    'd=s' => \$srcDep,
	    'a=s' => \$alignFile,
);


my($Corpus) = new cohesion($srcFile,$tgtFile,$srcDep,$alignFile);


for($i = 1; $i <= 900; $i++)
{
	$Corpus->cohesion($i); 
}
